-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 6
-- first background id: 3246
-- card count: 635
-- first card id: 169923
-- list block id: 168567
-- print block id: 119908
-- font table block id: 0
-- style table block id: 0
-- free block count: 5
-- free size: 22464 bytes
-- total size: 188416 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  --  hide field TAS
  --  hide field StdFR
  --  hide field FuelCap
  hide menubar
  push recent card
end openStack
on closeStack
  show menubar
end closeStack

on dem
  repeat for 459 times
    go to next card
  end repeat
end dem

function acos x
if x > 1.0 then return "Argument of ACOS() out of range"
put 1.0 into ac
repeat with kk = 1 to 50
  put ac - ((cos(ac)-x)/-sin(ac)) into acn
  if abs(cos(acn)-x) < .0000000000001 then return acn
  put acn into ac
end repeat
return "Error in acos function"
end acos

function asin x
if x > 1.0 then return "Argument of ASIN() out of range"
put 1.0 into ac
repeat with kk = 1 to 50
  put ac - ((sin(ac)-x)/cos(ac)) into acn
  if abs(sin(acn)-x) < .0000000000001 then return acn
  put acn into ac
end repeat
return "Error in asin function"
end asin

function rad d
return d*pi/180
end rad

Function dig3 x
if the length of x > 2 then return x
if the length of x = 1 then return "00" & x
if the length of x = 2 then return "0" & x
end dig3

function d60 L1,L2,L3,L4
return acos((sin(L2)*sin(L1)+cos(L1)*cos(L2)*cos(L4-L3)))
end d60

Function  hdg L1,L2,L3,L4,d60
put 57.29577951*acos((sin(L2)-((sin(L1)*cos(d60))))/ (sin(d60)*cos(L1))) into H
if sin(L4-L3) < 0 then
  return H
else
  return 360. - H
end if
end heading

function Li L1,L2,L3,L4,Loi
-- returns intermediate great circle Latitudes given
-- L1 initial Latitude dec degrees
-- L2 final   Latitude dec degrees
-- L3 initail Longitude dec degrees
-- L4 final   Longitude dec degrees
-- loi intermediate Longitude dec degrees

return (180/pi)*atan((tan(rad(L2))*sin(rad(Loi-L3)) -tan(rad(L1))*sin(rad( loi-L4)))/sin(rad(L4-L3)))
end Li

function dlat L1,L2,c,d
-- L1 initial Latitude dec degrees
-- L2 final   Latitude dec degrees
-- c  true course in dec degrees
-- d  distance nautical miles
put rad(c) into c
if cos(c) = 0 then return L1
return (cos(c)*d+60*L1)/60
end dlat

function dlong L1,L2,L3,c,d,
-- L1 initial Latitude dec degrees
-- L2 final   Latitude dec degrees
-- L3 initail Longitude dec degrees
-- c  true course in dec degrees
-- d  distance nautical miles
put rad(c) into c
--  return (1-cos(c)*d+60*L2)/60
put ln(tan(rad(45+(L2/2)))) into a1
put ln(tan(rad(45+(L1/2)))) into a2
put 180*(a1-a2) into a3
return (L3*pi-tan(c)*a3)/pi
end dlong

function rhumbc L1,L2,L3,L4
-- Returns Rhubline Course in degrees
-- L1 initial Latitude dec degrees
-- L2 final   Latitude dec degrees
-- L3 initail Longitude dec degrees
-- L4 final   Longitude dec degrees
put 180*atan(pi*(L3-L4)/ (180*(ln(tan(rad(45+(L2/2))))-ln(tan(rad(45+(L1/2)))))))/pi into a9
if a9 < 0 then put a9 + 360 into a9
return a9
end rhumbc


function rhumbd L1,L2,L3,L4,c
-- returns rhumbline distance in Nautical miles
-- L1 initial Latitude dec degrees
-- L2 final   Latitude dec degrees
-- L3 initail Longitude dec degrees
-- L4 final   Longitude dec degrees
-- c  rhumbline course in degrees

if cos(rad(c))=0 then return 60*(L4-L3)*cos(rad(L1))
return 60*(L2-L1)/cos(rad(c))
end rhumbd